home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #1 / Amiga Plus CD - 1997 - No. 01.iso / pd / daten / musicmaniii_inst / tmdock / examples / closemainscreen.mmx < prev    next >
Text File  |  1996-10-03  |  313b  |  17 lines
  1. /**/
  2.  
  3. IF EXISTS( 'T:TMDock.pid' ) THEN
  4. DO
  5.   CALL OPEN( 'PID_File', 'T:TMDock.pid', 'READ' )
  6.   Zeile=READLN( 'PID_File' )
  7.   CALL CLOSE( 'PID_File' )
  8.  
  9.   Zeile=STRIP( Zeile, 'L', '[' )
  10.   Zeile=STRIP( Zeile, 'T', ']' )
  11.   pid=SUBSTR( Zeile, 5 )
  12.  
  13.   ADDRESS COMMAND
  14.   'Break >NIL: 'pid
  15.   'Delete >NIL: T:TMDock.pid'
  16. END
  17.